home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / line / Arrows2.rx < prev    next >
Encoding:
Text File  |  2000-05-03  |  371 b   |  28 lines
  1. /**/
  2.  
  3.     options results
  4.   parse ARG Port x1 y1 x2 y2 b 
  5.     ADDRESS value Port
  6.  
  7.     a=(x2-x1)/4
  8.     b=(y2-y1)/4
  9.  
  10.     c=(x2-x1)/8
  11.     d=(y2-y1)/8
  12.  
  13.  
  14.     pp_StartPoly
  15.  
  16.     pp_AddPoly x2 y2
  17.     pp_AddPoly (x2-b-a) (y2-b+a)
  18.     pp_AddPoly (x2-d-a) (y2-b+c)
  19.     pp_AddPoly (x1-d) (y1+c)
  20.     pp_AddPoly (x1+d) (y1-c)
  21.     pp_AddPoly (x2-a+d) (y2-b-c)
  22.     pp_AddPoly (x2-a+b) (y2-b-a)
  23.     pp_AddPoly x2 y2
  24.  
  25.     pp_EndPolyF
  26.  
  27.     
  28.